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ABSTRACT 


GRASP is a set c£ PL/I compatible subroutines which provide 
programming support for the IBM 2260 Display Station in local 
attachment; i.e., the attachment of a 2260 directly to a System/ 
360 CPU channel via the IBM 2848 Display Control. The subroutines 
are coded in OS/360 Assembler Language and are reentrant. They 
permit the PL/I programmer to manipulate the 2260 as an I/O device 
in the same manner available to the Assembler Language programmer 
using the Graphics Access Method under OS/360 (with restrictions 
as noted in the Introduction to Volume I of this document). All 
errors, except those which normally result in OS/360 abnormal ends 
(ABENDs), are returned to the user via subroutine parameters. 

GRASP is designed to operate under the MFT configuration of 0S/360. 

Volume I of this document gives an overview of the 2260 and 
an introduction to the GRASP routines. Volume II gives detailed 
program specifications. 
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SECTION I 


INTRODUCTION 


The IBM 2260 Display Station is a small character-oriented dis¬ 
play which may be attached to an IBM System/360 computer via trans¬ 
mission lines to an IBM 2701 Data Adapter Unit (remote attachment) 
or directly to a CPU channel via the IBM 2848 Display Control Unit 
(local attachment). Programming support for the former mode of 
attachment is provided to Assembler Language programmers under OS/360 
via the Basic or Queued Telecommunications Access Methods (BTAM and 
QTAM). Programming support for the latter mode, also available only 
to Assembler Language programmers, is provided by the Graphics Access 
Method (GAM) . At the time of this writing IBM does not support either 
mode of attachment in any of its available higher level languages, 
although QTAM support has been announced for PL/I Version 5, to be 
released in early 1970. 

For some time, two 2260*s in local attachment (and therefore 
supported by GAM) were available at MITRE, although until early 1969 
there was much interest but little use. Wi-h the advent of IBM’s 
Conversational Programming System (CPS) and interest in the 2260's 
by the MITRE Management Information System (MIS) and Mi litary Air¬ 
lift Command (MAC) projects, use of the 2260’s increased. A need 
was immediately felt for an interface to GAM for the PL/I Language, 
since both the MIS and MAC projects were using that language. 

A preliminary investigation of available software was under¬ 
taken by the MIS project and revealed that there was no interface 
package available at the time which reflected, on the one hand, 
the inherent simplicity of the GAM support and the 2260 itself and 
which, on the other hand, did not inhibit the higher level language 
programmer from taking full advantage of the capabilities available 
to the Assembler Language programmer using CAM. In addition, since 
the PL/I Language already provided certain basic system programming 
capabilities, foremost among these being the capability of producing 
reentrant programs, it was felt that the interface package should be 
reentrant. This would guarantee in addition that the package could 
bo transferred to a computing system using MVT, without degrading 
miat system’s capabilities and without reprogramming. A suitable 
interface package not being found, it was decided to build such a 
package at MITRE; that package is GRASP. 
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The version of GRASP documented in this paper does not provide 
the full capability of GAM programming support. It supports: 

(1) I/O operations addressing a 2260; 

(2) the keyboard and line addressing features of the 2848; and 

(3) attention handling in a background-type user program via 
the "basic" method (see reference 2). 

GRASP does not support: 

(1) user written asynchronous attention processing programs; and 

(2) the "express" method of attention handling (see reference. 2) . 

In addition, although GRASP was written to support any valid 2848/ 

2260 combination, it has only been tested with a 2848 Model 3 with 
two attached 2260 Model 1 Display Stations, The omission of the 
express attention handling capability is not serious since it does 
not appear to be as useful as the basic method, and if it were re¬ 
quired, it could be provided with a minimum of effort. However, the 
omission of support for user written asynchronous attention processing 
programs is significant. Considerable work was done to determine if 
it would be possible to implement a PL/l programmer-defined condition 
which would be raised whenever an attention occurred. The PL/l pro¬ 
grammer would then be able to use the full capabilities of PL/l for 
enabling and disabling condition handling specifications. But it 
was found that the manner in which asynchronous exit routines are 
activated by the Operating System is not compatible with the PL/l 
implementation of condition on-units. One method of interfacing the 
Operating System and PL/l was identified, but it required the addition 
of a special SVC routine to the system library. This was felt to be 
an unsatisfactory approach to the problem, and the attempt to imple¬ 
ment this capability was abandoned. 

This paper is divided into two volumes. The first gives a brief 
introduction to the 2260, and describes GRASP and its use. The second 
gives detailed specifications of the GRASP routines. The reader is 
assumed to be familiar with the PL/l Language. 
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SECTION II 


THE 2260 ENVIRONMENT 


GENERAL DESCRIPTION 

This section presents a subset of information from selected 
documents in the Bibliography. Readers desiring more information 
should consult the appropriate document. 

The 2260 is a small character-oriented display capable of dis¬ 
playing either 6 or 12 lines of either 40 or 80 characters each, 
depending on the 2260/2848 configuration (see Figure 1) . The range 
of characters includes: 

26 alphabetic characters; 

10 numeric characters; 

25 special symbols (including the space and new line 

symbols); and 

3 control symbols (cursor, check and start symbols). 

Graphics associated with the special and control symbols are shown 
in Figure 2. Bit patterns for all symbols displayable on a 2260 
Display Station are shown in Reference 3. Operating instructions 
for the 2260 Display Station can be found in Reference 1. 


SPECIAL FEATURES 

Special features of 2848/2260 configuration of interest to the 
user of GRASP include the keyboard, line addressing, non-destructive 
cursor, data entry, and 1053 Printer options. Other special features 
are available and are described in Reference 3. 

Keyboard 

If the selected 2260 is not equipped with the keyboard feature, 
the parts of the GRASP package dealing with attention handling and 
input operations must not be used. Such a 2260 is only an output 
device. 


3 



Maximum No. Lines per Characters Characters 
2848 Model 2260 Model of Devices Display per Line per Display 
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Figure 2. Special and Control Symbols 
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The CPU is interrupted via the ENTER key on the keyboard attached 
to a 2260, causing the control program to store information related to 
the attention in an attention queue. Via the attention handling capa¬ 
bilities of GRASP, the programmer may inspect the attention queue and 
service the device. 

Line Addressing 

This feature permits the programmer to specify, via a control 
character transmitted to the 2260 as the first byte of data to be 
written, that display is to begin at column 1 of a particular line 
of the screen. This feature also permits a very limited cursor 
positioning capability: if only the control character is transmitted, 
the cursor is positioned to column 1 of the indicated display line. 

Non-Destructive Cursor 


The standard destructive cursor is a symbol, indistinguishable 
from the EOM symbol, which indicates the display position to be 
occupied by the next character key depressed or character displayed. 

It occupies a display position and overwrites display positions as 
it advances. The non-destructive cursor performs the same function 
as the destructive cursor, but is a different graphic and does not 
occupy a display position; it is displayed to the left of and slightly 
below the next character position to be filled when data is trans¬ 
mitted or when a character key is depressed. 

Data Entry 

After the completion of a read operation from a 2260, the key¬ 
board of the selected 2260 is mechanically unlocked and operator 
entry may resume. The data entry models of the 2848 Display Control 
permit the bypassing of this operation, thereby enabling program 
verification and response to operator input prior to the entry of 
another message. This is supported in GRASP by the ,, lock u (L) code 
in the mode arguments to the read, write, and erase routines. If 
the 2848 controlling the selected 2260 is not a data entry model, 
these codes must not be used. The data entry models of the 2848 
have several other features, including a keypunch-type keyboard 
layout (rather than a typewriter layout), which are described in 
Reference 3. 
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Printer 


A 2848/2260 configuration can be equipped with a slave 1053 
printer. This is a low speed (14 characters per second) modified 
SELECTRIC printer and may either be activated by the operator via 
the PRINT key on the 2260 or be treated as an output device by the 
computer program. Programming considerations for the 1053 printer 
are given in References 2 and 3. 
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SECTION III 


GRASP/2260 USER’S MANUAL 


INTRODUCTION 

GRASP is a set of subroutines and functions which provide the 
PL/I programmer programming support for the 2260 Display Station. 

The subroutines available can be broken down into the following 
categories: 

• General I/O Support - this group includes subroutines 
which allocate and format graphics control blocks, and 
perform the open and close functions. 

• Specific I/O Routines - this group includes routines 
which initiate read, write, and erase operations to a 
2260, and which wait for the completion of I/O opera¬ 
tions . 

• Attention Handling - this group includes subroutines 
which allocate and build attention environment control 
blocks, and which support the inspection of the Opera¬ 
ting System attention queue. 

• Support Functions - this group includes a set of func¬ 
tions which, among other things, permit the PL/I pro¬ 
grammer to access information in graphics control blocks. 

Figure 3 lists the GRASP routines under the above headings and 
gives a brief definition of each. 

This section describes the use and features of the GRASP routines. 
Control blocks of interest to the GRASP user are described as back¬ 
ground information. The input and output routines are then described, 
followed by a discussion of attention processing. Several special 
programming considerations are presented and a final section describes 
a sample GRASP application. 


8 


General I/O Support 

GOPEN - Define and open a graphics data control block. 
GCLOSE - Close a graphics data control block. 

Specific I/O Routines 

GREAD - Initiate a read from a 2260. 

GWRITE - Initiate a write to a 2260. 

GERASE - Initiate an erase of a 2260. 

GWAIT - Wait for the completion of an I/O operation. 

Attention Handling 

GAAP - Activate attention processing. 

GDAP - Deactivate attention processing. 

GAQ - Attention inquiry* 

Support Functions 

GNUNITS - Number of units in a unit group. 

GUNIT - Unit in the unit group causing an attention. 

GLINENO - Line number conversion. 

GNCP - Number of channel programs value. 


Figure 3. GRASP Routines 
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CONTROL BLOCKS 


The GRASP user is required to be familiar with three OS/360 
I/O control blocks: the Data Control Block, the Graphics Attention 
Control Block, and the Data Event Control Block. This section de¬ 
scribes these control blocks and their use by GRASP routines. 

The user is not expected to know the format of these control 
blocks. Each control block is automatically generated by an appro¬ 
priate GRASP routine and its address is returned to the user as a 
PL/l POINTER variable. This variable is then passed as an argument 
to other GRASP routines which require access to the particular con¬ 
trol block. 

Data Control Block (DCB) 

The DCB is the primary link between the external device and 
other I/O control blocks. It is generated by the open process by 
a call to the GOPEN routine, is specified in calls to GREAD, GWRITE, 
and GERASE to initiate I/O operations, and is referenced in the call 
to GCLOSE to perform the close process. It is also used as an argu¬ 
ment to the GAAP routine (Activate Attention Processing) to initiate 
attention handling operations (see below). 

Graphics Attention Control Block (GACB) 

A GACB is generated for each DCB for which attentions are to be 
processed. The GACB is generated by the GAAP subroutine, is specified 
as an argument to the GAQ (Attention Inquiry) routine to inspect the 
attention queue, and is input to the GDAP (Deactivate Attention Pro¬ 
cessing) routine to terminate the processing of attentions for a 
specific DCB. Since attention processing is always DCB-specific, 
the pointer to the DCB must be specified as an argument to the GAAP 
routine. Thereafter, only the GACB need be specified since it con¬ 
tains an internal pointer to the DCB with which it is associated. 

Data Event Control Block (DECB) 

The DECB is exactly equivalent in function to a PL/l EVENT 
variable. A unique DECB is generated each time a call is made to 
GREAD, GWRITE, or GERASE to initiate an I/O operation, and its 
address is returned as a PL/I POINTER variable. This pointer may 
then be specified as an argument to the GWAIT routine to wait for 
completion of the associated I/O operation. 
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INPUT OPERATIONS 


Three types of input operations are provided to the user of 
GRASP: buffer input, manual input, and short manual input. All 

three types are implemented by options of the GREAD routine. 

Buffer Input 

If 'B 1 is coded as the read-mode argument to the GREAD routine*, 
the entire contents of the buffer of the selected 2260 Display Sta¬ 
tion is transferred to memory. After transfer, the screen is erased. 
All characters, including special characters, are transferred. 

Manual Input 

If 'M 1 is coded as the read-mode argument to the GREAD routine, 
the characters on the screen between the START symbol (► ) and the 
EOM symbol (■) are transferred to memory. The START symbol is 
deleted from the screen and the cursor is placed immediately to the 
right of the position originally occupied by the START symbol. 

The new line symbol (^1) has a special use with manual input 
read operations. When a new line symbol is encountered between the 
START and EOM symbols during the read operation, characters on the 
same line as and to the right of the new line symbol are skipped 
and data transfer begins again with the first character on the next 
line. The new line symbol is transferred as a data character. 

The behavior of the manual input read operation on encountering 
a new line symbol can be used to advantage when more than one dis¬ 
tinct piece of information is to be transferred in a single read 
operation. Consider an example. The program initially displays 
command information on the right of the screen and places the cur¬ 
sor at column 1 of the first line: 

. JOB NAME 

* PROJECT NO. 

DEPT. 


* Detailed definitions of the arguments to GRASP routines are 
given in Volume II of this document. 
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The display operator enters the START symbol and the "job name" and 
depresses the new line key. This causes the cursor to move to 
column 1 of the second line: 

► TEST^4 JOB NAME 

PROJECT NO. 

1 DEPT. 

The operator continues by typing the other required information and 
depresses the ENTER key when the message is complete: 

►TEST A JOB NAME 

512A^ PROJECT NO. 

D7 31 ^ DEPT. 

When the program issues a manual input read operation, the string 
transferred is: 

*TEST A 512A A D73 1 . 

Transfer of input data to the string variable specified in the 
call to GREAD occurs asynchronously to the execution of the user's 
program. In addition, the current length of this string variable, 
which has the VARYING attribute, is not set until a GWAIT is issued 
for the read operation. For these reasons, it is advisable not to 
make reference to the string variable until after the operation is 
complete; i.e., after a call has been made to GWAIT. 

Short Manual Input 

At the completion of a manual input operation, the START symbol 
is deleted from the screen and the cursor is placed to the left of 
the position originally occupied by the START symbol. Short manual 
input, identical to manual input in all other respects, does not 
delete the START symbol from the screen and therefore results in a 
somewhat faster read operation. 
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OUTPUT OPERATIONS 


Three types of output operations are provided by GRASP: screen 
erase, buffer output, and line addressed output. The screen erase 
operation is provided by the GERASE routine. The remaining two write 
operations are performed by the GWRITE routine. 

Screen Erase 


Two methods are available for erasing the screen of a 2260. The 
first method, used when a write operation will not immediately follow 
the erase, is provided by the GERASE routine. The second method is 
the pre-write erase option of the GWRITE routine. In this case, the 
screen is erased immediately prior to the write operation specified 
by the call to GWRITE. 

Buffer Output 

By coding f B f or f EB f (if a pre-write erase is desired) as the 
write-mode argument to the GWRITE routine, the programmer may specify 
that the specified string argument is to replace the contents of the 
buffer of the selected 2260 Display Station. If this mode is used, 
the length of the string to be displayed must be exactly equal to the 
size of the buffer for the selected 2260 Display Station (either 240, 
480 or 960 characters, depending upon the 2848 model in use). 

The first character of the string to be displayed appears in 
column 1 of the first display line, and subsequent characters are 
displayed adjacent and to the right with spillover to subsequent 
display lines. 

Line Addressed Output 

When a 2848/2260 combination is equipped with the line addressing 
feature, the programmer may specify that a message is to be displayed 
on a particular line of the selected 2260 Display Station. This type 
of write operation is specified by coding f A f or f EA f (if a pre-writc 
erase is desired) as the write-mode argument of the GWRITE routine. 

In this mode of operation, the first byte of data is interpreted 
as a control character, indicating the display line to which the 
string will be written. This character must be included in the length 
of the string, but is not displayed. Display of the string begins at 
column 1 of the addressed line and spills over to subsequent lines 
(with wrap around from the last line to the first line) if the string 
is longer than one display line. Characters on the screen beyond the 
last character of the displayed string are not affected by a line 
addressed write operation. 
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A special function, called GLINENO, is provided as a part of 
GRASP to aid the user of line addressed output. The user specifies 
the desired line number as a FIXED BIN (31) integer, and codes the 
following expression as the string argument to the GWRITE routine: 

GLINENO(line_number)||string 

where ’’string" is the string to be displayed. The returned value 
of the GLINENO function has the attribute CHAR(l). The dunmy argu¬ 
ment generated by PL/l for the string expression above automatically 
accounts for the addition of the control character to the string to 
be displayed. 


ATTENTION HANDLING 

Attention handling support is provided in GRASP by the GAAP, 

GAQ and GDAP routines. This section describes these routines and 
their use. 

Initialization 

To initiate attention processing the user calls the GAAP routine 
specifying the DCB for which attentions are to be accepted. GAAP 
generates a GACB, notifies the control program that attentions for 
that DCB/GACB combination are to be honored, and returns the GACB 
address to the user. Any attentions occurring after the call to 
GAAP are queued by the control program until the user calls GAQ 
to inspect the queue. 

Attention Inquiry 

Whenever the user wishes to inspect the attention queue, he 
calls the GAQ routine, passing as an argument the GACB associated 
with the DCB for which attentions are desired. He also specifies, 
via an argument, the mode of the query: 

(1) Wait (W) or Relinquish (R) mode*; 

(2) Conditional (C) mode; and 

(3) Clear (X) mode. 


* Wait and Relinquish modes are equivalent in this implementation 
of GRASP. They are included for compatibility with possible 
future extensions of GRASP. 
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In W-mode or R-mode, the user is placed in a wait state until 
the desired attention occurs. In C-mode, the user requests that a 
BIT(l) variable specified as an argument be set to ’i*B or to 

indicate whether or not the desired attention is present. If X- 
mode is specified, the attention queue is cleared; any attentions 
on the queue are lost. 

The user selects a desired attention by spec:fying as an argu¬ 
ment the unit number of the 2260 Display Station for which attentions 
are expected. This number, meaningless for X-mode, may be an integer 
greater than or equal to 1 to select an attention from a particular 
2260 or may be zero to indicate that attentions are to be accepted 
from any 2260 defined by the DCB associated with the specified GACB. 

On return from an R-mode or W-mode call to GAQ, the desired 
attention is present and a GREAD may be issued to the unit causing 
the attention. Similarly, on return from a C-mode call, if the 
BIT(l) variable has been set to 1 1*B the attention is present and 
a read may be issued. 

If for C-mode, R-mode, or W-mode, a non-zero unit number was 
specified, the user knows which unit caused the attention, and a 
read may be issued to that particular unit by specifying the same 
unit number in the call to GREAD. If, however, zero was specified 
as the unit number to indicate that attentions are to be accepted 
from any device, the user needs to know which of the devices defined 
by the GACB/DCB combination caused the attention. For this purpose, 
a GRASP routine, called GUNIT, is provided. On return from GAQ, 
and in the presence of an attention, the function returns the unit 
number of the unit causing that attention. 

Termination 


To terminate the processing of attentions, the GRASP user calls 
the GDAP routine. This program notifies the control program that 
queueing of attention information for the DCB associated with the 
specified GACB should cease; storage occupied by the GACB is freed. 
Any attentions occurring after the call to GDAP are lost. 



SPECIAL CONSIDERATIONS 


The Number of Channel Programs (NCP) Parameter 

It is possible, vhen servicing more than one 2260 using a 
single Data Control Block (DCB) (and therefore a single Data 
Definition (DD) statement), to overlap I/O operations on these 
devices. The NCP parameter of the DCB may be used for this pur¬ 
pose. The function of NCP is to specify to OS/360 the maximum 
number of channel programs; i.e., I/O operations, which may be 
outstanding for a given DCB at any time. Outstanding I/O opera¬ 
tions are ones which have been initiated (in GRASP by a call to 
GREAD, GWRITE, or GERASE) for the same DCB without an intervening 
wait operation (performed in GRASP by calling C^AIT). 

The value of NCP is an integer between 1 and some maximum 
value specified during system generation of the OS/360 version 
in control, but is never greater than 99. The value of NCP for 
a particular DCB may be specified by the programmer in his call 
to GOPEN or may be specified on the DD statement by coding 
DCB=GNCP=value. If the NCP value is specified in the call to 
GOPEN, this value overrides any value specified on the DD state¬ 
ment . 


In a GRASP application where more than one 2260 is defined 
by a single DCB, the programmer may set the NCP value for the 
DCB to a value high enough to permit simultaneous I/O operations 
to be in effect for all of the 2260*s defined by the DCB. By 
calling the GNUNITS routine prior to opening the DCB, the pro¬ 
gram determines the number of devices defined on the DD state¬ 
ment for the DCB. The programmer may then set the NCP argument 
to GOPEN to this value. This allows the GRASP program to exer¬ 
cise a certain measure of control over the external specification 
of the NCP value, while at the same time not restricting the pro¬ 
gram to a particular, perhaps too small, value. 

The following rules must be followed in making use of the 
NCP capability for overlapping I/O operations: 

(1) Every overlapped I/O operation must have its 
own DECB. This is accomplished by using 
unique identifiers for the first arguments 
( M decbptr ,, ) in overlapped calls to the I/O 
initiation routines (GREAD, GERASE, and 
GWRITE). 
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(2) I/O operations must be waited on (by 
calling GWAIT) in the order in which 
they were initiated. For example, 

GALL GREAD (DECB1,...); 

GALL GREAD (DECB2,...); 

GALL GWAIT (DECB2,...); 

GALL GWAIT (DECB1,.. 

is not correct; the waits must be per¬ 
formed in the opposite order. 

Writing the START Symbol 

The START and EOM symbols are used to identify the characters 
in the buffer to be transmitted to memory on a manual input read 
operation. Both symbols may be entered on the screen by the dis¬ 
play operator. It is, however, desirable under certain circumstances 
for the user program to display the START symbol as part of a command. 
The program might display: 

"ENTER NAME ► " 

where represents the START symbol. The cursor would appear 

immediately to the right of the START symbol. The operator of the 
display would then follow by typing his name and depressing the 
ENTER key. The displaying of the START symbol by the program can 
result in a significant increase in "throughput", especially when 
operator responses are short. 

Since the START symbol corresponds to the graphic ", which 
is generally not available on print trains, a CHAR(l) string 
variable, GCENT, the value of which is this symbol, is available 
to the user of the GRASP standard include set (see "Sample GRASP 
Application"). If the user wishes to include the START symbol 
in his displayed string, he simply concatenates the variable GCENT 
to the string he wants displayed. In the above example, the string 
argument to the call to GWRITE which resulted in the above message 
being displayed would have been coded: 

'ENTER NAME'||GCENT 
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Usin^ Line Addressed Output 


Care must be taken when using line addressed output to "clean 
up" areas of the screen affected by previous operator messages. 
Consider the example in section a of Figure 4. The call to GWRITE 
causes the message 


ENTER NAME ► 

to be displayed on line 1 of the display. The cursor is shown to 
the immediate right of the START symbol to indicate that the first 
character key to be depressed by the display operator will cause 
that character to appear adjacent to and to the right of the START 
symbol. 

The display operator then types in his name and depresses the 
ENTER key causing the EOM symbol to appear. The first line of the 
-ispLay would now contain: 

ENTER NAME ► R. H. BULLEN ■ 

When the GREAD subroutine is called*the characters between the START 
and EOM symbols are transferred to memory and stored in the program 
variable "NAME" and the display line is automatically modified to 
contain: 


ENTER NAME R. H. BULLEN ■ 

I 

A branch is now taken to the statement labelled "LOOP", causing the 
command to be rewritten, and the display line to appear as: 

ENTER NAME ► R. H. BULLEN >m 

I 

The previous operator input remains on the screen since the command 
is output using line addressing. 

One way of solving this problem is shown in section b of Figure 
4. By adding an extra call to GWRITE, the first line of the display 
is blanked out prior to writing the command. It is necessary to use 
two separate calls to ensure that the cursor will appear immediately 
to the right of the START symbol, when the command is displayed. 
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a) LOOP: CALL GWRITE (...,'A' .GLINENO(l)||'ENTER NAME'||GCENT,...); 

CALL GREAD (...,'M',...,NAME,...); 

GO TO LOOP: 

b) LOOP2: CALL GWRITE (...,GLINENO(l)||(80)' 

CALL GWRITE (...,GLINENO(l)||'ENTER NAME r j[GCENT,...); 

CALL GREAD (.. ,NAME,...); 

GO TO LOOP2; 

Figure 4. A Line-Addressed Output Example 
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SAMPLE GRASP APPLICATION 


Figure 5 shows the PL/I source language for a sample GRASP 
application. In general, the program initializes a display and 
waits for attentions. When an attention occurs, a read is issued 
and the string received is printed. When the operator at the dis¬ 
play enters "STOP", the program erases the display and terminates. 

Several points are worth noting about the program: 

(1) In the compile step, a DD statement defining 
the include library AAINC is required, if the 
GRASP standard include set is used. The in¬ 
clude set is shown in Figure 6 and contains 
declarations for the GRASP routines and the 
definition of the special variable GCENT, the 
value of which appears as the START symbol 
when displayed on a 2260. 

(2) A 7o INCLUDE statement is required to cause 
the GRASP program declarations to be in¬ 
serted in the program. The statements which 
follow the % INCLUDE cause selected declara¬ 
tions to be inserted in the program as source 
code. The specific declarations are selected 
by coding the name of the desired subroutine 
followed by a # sign; for example, GOPEN# is 
coded to cause the declaration of the GOPEN 
routine to be inserted in the program. Each 
subroutine declaration selection must be 
followed by a semicolon. Figure 7 shows 

the listing of the PL/I compilation of the 
sample program, indicating the inclusion 
of the selected declarations. In addition 
to the individual declarations, a special 
symbol GALL# is provided which, when in¬ 
cluded in the user’s program, results in 
the inclusion of declarations for all GRASP 
routines. 

(3) The third argument to the GOPEN routine is 
coded as 1 IOE 1 to indicate that the GREAD, 

GWRITE, and GERASE routines will be used. 

The NCP value is set to 1. 
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SAilEL£_£SASE_Ae£LI£AIlQU 


QlZLD2ZIQ_16iQ2:i3 

000000 0001 11111111122 222 2222 2333333333344444444445555555555666666666677777777778 
123ftS(iZ£2iU22456ZB2Q122£:2&ZB2QlZ245&Zil2Q122ia&Zfl2Q12;i4afiZfl2fllZ2fta(iZfi2CLU2Aa&Zfl2i} 

//DISPLAY JOB ('512A•,073,10,00821.'BULLEN RH',CLASS=0 
// fcXEC PL1LFCLG,PARM.PL1L='M* 

//PI 1L.DLLS DO DSN=AAINC,DISP=SHR,UNIT=PACK, 

// VUL=(PRIVATE.RETAIN,SER=DP5010) 

//PL1L .SYSIN DD * 

DISPLAY : PROC UP TION S(MAIN); 

DCL (OCBPTR.GACBPTR,DECBPTR) POINTER. 

COND B I T(1), 

MIMSG CHAR(30) VARYING, 

R FIXED BIN(31) ; 

X INCLUDE DCL S ( GRASP INC); 

GUPEN#; 

GAAP#; 

GWRJTE#: 

GWAIT#; 

GLINENO#; 

GAO# ; 

GREAD#; 

GERASE#: 

GDAP#; 

GCLOSE#; 

GCENT#; 

CALL GOPEN (DCBPTR,»DISP* *•IOE•,'BASIC••110,R)J 
CALL GAAP (GACBPTR,OCBPTR,R): 

LOOP : CALL GWRITE (DtCBPTR,’EA’.OCBPTR, 

GL INENOt 1)|| 'READY •I IGCENT,1,R); 

CALL GWA IT (DECBPTR.RI; 

CALL GAC (GACBPTR. 'W'tCOND,1»R)5 

CALL GRcAD (DECBPTR,'M'.DCBPTR,MIMSG,l,R); 

CALL GWAIT (DECBPTR,R); 

PUT EDIT (MIMSG) (SKIP,A); 

IF M I M SG-*= * S TOP ' THEN GO TO LOOP; 

CALL GERASE (DECBPTR, " .OCBPTR,1,R); 

GWAIT (DECBPTR,R); 

GDAP (GACBPTR,R); 

GCLOSE (DCBPTR); 


CALL 

CALL 

CALL 

END; 

/* 

//LKED.SYSLIB 
// DD 

// 

//GO.D ISP DD 


DD DISP = SHR 

DSN=AALIB,DISP=SHR,UNIT= 
VCL = (PR IVATE,RETAIN,SER- 
UNIT = DISPLA Y 


PACK, 
DP5010) 


000000000 111111 111 122222222 2 233333333334444444444555 5555 55566666666667 7777777 778 
123456789012 345678901 23456789012 34567890123456769012345678901234567890 12.'.-567893 


Figure 5. 
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G£Aj>E..SIAMDA&li-lMCLUDE SLT : a 61 NC (GRASP I NC > 
ooroo-rcroi li 111 1 ll 122 222222 223 3333333334*44444444555555555 566b6ofct,<bt>6 77 7 777777 78 


lZlix2 

x 


% 

* 

V 

* 

7 


* 




DCl (GAAP« , GAj#,GCLnSF*,GOAP#,GERASFi»,GLINENO*,GNCP#, 

GNUr!lT$a,C,;jPtN#,GREAO*,GUNI T H , G WAI T#, G WRI T E #) CHA* ; 
•JCL G(.ENT« Char; 

GCL GALL'/ CNAk; 


G 0001/00° 

oooorci'. 

OOO 00 022 

000000 'VJ 


G A A 0 * 


' 1 A L </ 


:'.c L !$M 

, 0 />P</ 
j Fw mSL « 


"L 1 Mi ui;„ 


GNf P* 
CNUNIrs# 

GCPEN* 


Gkt AO** 


jn it* 

(,RA IT// 
GWK ITT// 


GCLNT# 
GALL# 


•J(.L GAAP ENTRY (PGI NTEK,POINTER, 

FIXED BIN(31))•; 

•GCL GAy ENTRY (PUINTfcP.CHAR(1),BIT(1) , 

FIXED nlN(31 ) ,FIXFD BIN(31I)'; 

'OCL GLLCjSF ENTRY IPDINTTR)'; 

•l>C( GDAP ENTRY I POINTER ,r I XfcU 151 N ( 31 ) I • l 
'DLL GlR A St ENTRY ( POI NTER ,CHARI 1) VAR , P.ll HTER , 

FIXED BIN! 31) .FIXED 13INC31U': 
•DCL GLINFNO ENTRY (FIXED b I N ( 31) ) 

RETURNS (CHAR(1))•; 

• DCL GNCP ENTRY (POINTER) RETURNS (FIXFD BINOIMM 
•OCL GNUNITS ENTRY(CHAR(6)) 

RETURNS(FIXti) BIN(31) ) •; 

'DCL GURtN FN TRY (POINTER,C HaR(8) » CHAR(3)VAR, 

CHAR(5) .FIXED BIN(31), , 

FIXFD BIN(31 I I » 5 

•DCL GRFAD ENTRY (PUlNTER.CHAR(3)VAR.PGINlTEk, 

CHAR(*)VAR .FIXED BIN (31), 

FIXtP HIN(31))»; 

• DCL GUNIT ENTRY! POINTER) R.t TUP NS ( F I X ED BIN(Jl))'; 
•OCL GwA IT ENTRY (POINTER,FIXED BIN(31))'; 

•DCL GnRITE ENTRY (POINTFR,CHAR(3)VAR,PUINTcP, 

CHAR( *) VAR ,H XEO BIN(31), 

FIXLD BIN(31))»? 

•DCL GCENT CHAR(1) STATIC INIT(*• **)•; 

• GAAP*»;GAU#;GCLOSE#;GQAP#;GEi\ASh#;GLINENC/# ; 

GNCPY iGMUNI TS#;GUPEN# ;GRFAD#;GUNI t# ;gWAIT i» ; 


DODu n JA J 
OOJOOOB J 
000 DOC -j > 

ooooo"7: 
0000COB ; 
ooooiju >. 
OOObGlO 
00000110 
00000 uo 

OODOOl v; 
0000014C 
00000 I 5" 
0000 )1;jG 
00000 1 7 
OOCOO 1 Bv 
OOOCOISc 
00000200 
0JD0L2lu 
0 CO 0 0 22 
0000G2 G, 
0000024 
OOOOoD- 
00000 >o" 
000UC2 7,, 
0 0 0 0 C 2 rt 0 
0000020') 
OOOCO 3QD 


GwRIT t #JGCENT #•: 


0000031 '• 


00000 DOnO 111111111 1 2 22 2 222 2 2333 33333334444444444555555555 56feb66t>6 00 677777 77 7 77., 
12345o760012345o70H0i2345o7B9012345678901234567 8 VO 12 34567 b DO 12 345670901^3456 7 b*0 


Figure 6. 
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DISPLAY ; PRiiC nPTIJVSlMAIM 




SUDkCt. listing. 


STMT 

LEVEL N6ST 




1 


DISPLAY : PPUC OPTIONS! M4 INM 

l 

2 

1 

,)0L 

(DCRPTk ,GACi'I^Tk ,0C(-ttl»l K ) POINTtP, 

2 




cuwr hi Till , 

3 




MI MSG CHAM 3H VAP.YINi,, 

4 




0 FlYCll H INI 31 I? 

5 

i 

1 

OCL 

GOPfcN WHY ( PtII NTF F .CHAR (tt),CHAR(3)V AR, 

7 




CHA>* ( *>) ,FI XCI) I3IN(31 ),, 

7 




fixed mm tm ; 

7 

4 

1 

)CL 

GAAP lljTPY (POINTfcPtPOINTt*i» 

ft 




FIXFI) MINI 11) ) ; 

8 

5 

1 

OCL 

D*°ITr r’JTUV ( Pl)li\lTrR,CHAPI3)VAR,POINTER, 

9 




CHAR(*|V*R.FIXED >11N( 31) • 

9 




FIXFD HINI3I ) ) ; 

9 

h 

I 

n C L 

Gw A1T t NTFY IPOINTER .FIXED it Ml 31> > ; 

10 

7 

1 

*JUL 

GLINr(V> t-MTrtY (F 1 XI 0 .31'•( 31 ) ) 

1 l 




J.FTilPNS (CHAM III ; 

11 

H 

1 

DLL 

GAO £ N T u Y {PMINTEK,CHA«<1),dlT<1), 

12 




rixtu BlN(ill,FIXED HINCUM ; 

12 

9 

1 

OCL 

gK 6A0 fcfcTMY (PDIMLP.CHAa (3>VAR,POINTER, 

13 




CtlAF ( *»VA« ,F IX tO r* 111(31), 

13 




FIXED Ft I N ( il ) ) ; 

13 

1C 

1 

OCL 

r K A S F I ,T<» ( PiIINTFk.LHAK ( 1 IVAR, POINTED, 

14 




riXrD HI.NIi 1 ) ,F IX r f) BINI31H ; 

14 

1 I 

1 

OCL 

GDAP fntxy (POINTEF ,FIx c i rt IN(31)1 ; 

15 

12 

1 

OCL 

GCLOSfc t N r k Y (POINTER) ; 

16 

1 3 

1 

OCL 

GCFNT CHAPI 11 .STATIC lNlTC •) ; 

17 

1<* 

1 

CALL 

GMPi.fi (nr.iPTH,*nisP', muf • ,• basics i.o.k) s 

18 

16 

1 

CALL 

GAAP (GAC )PT (.OtOPTR.M; 

19 

16 

I 

L H D : CALL 

OWkIT ' (DECt)PTrt, *KA* .OCPPTfi, 

20 




GUNCNO(l) 1 1 'RFAPY • 1 1 GCFNT, I ,H ); 

21 

1 7 

1 

call 

G „A I T (f)tC3PTR,R) ; 

22 

IS 

l 

call 

GAC (GACliPTK * *V» • ,C JNO , 1 ,*» ; 

23 

19 

1 

C ALL 

CiRfAO (DlCIPTR.'F * , I1C tPTP ,-MIflSG, 1,P. ) ; 

24 

20 

1 

(.ALL 

GW AI T (Dri.HPTK,Sl; 

25 

2 1 

1 

POT 

EDIT (P1MSG) (SKIP, 4); 

26 

22 

1 

IF M1MSG-.«*ST0P* THEN CO TO LOOP; 

27 

24 

1 

CALL 

GF* ASF I Of. COP TP, • • .OCrtPTK , 1,«); 

28 

Zb 

1 

CALL 

Gv-AIT (OtCr1PTP,P»; 

29 

?0 

J 1 

CALL 

GnAP (GAfiPT^P); 

30 

27 

1 

Call 

'.CLOSE IDCdPT-JS 

31 

2H 

1 

CNO; 


32 


Fig vtm 7. 
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1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

1 

l 

l 

1 

1 

1 

l 
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(4) At the statement labelled LOOP, the 
vritemode argument to the GWRITE routine 
is coded as 'EA' to indicate that a pre¬ 
write screen erase is to occur, followed 
by a line-addressed output operation. 

The GLINENO routine is used to supply 
the proper line code for line 1 of the 
display. The variable GCENT is used to 
supply the character code for the START 
symbol. The line will appear on the dis¬ 
play as 

READY 

with the cursor imnediately to the right 
of the START symbol. 

(5) The wait mode of the GAQ routine is used 
to wait for the appearance of an attention 
at the device. 

(6) The manual input mode of the GREAD routine 
is used to cause the characters entered by 
the operator to be transferred to the string 
variable MIMSG. When the call is made to 
(SfAIT; the current length of the varying 
string MI1CG is set to the number of char¬ 
acters read from the device. The unit num¬ 
ber specified in the call to GREAD is 1 

(as it is in the calls to CWRITE and GAQ) 
because only one display is being serviced. 

(7) When the program is complete, a call is 
made to GERASE to erase the screen, GDAP 
is called to terminate the processing of 
attentions by the control program, and 
the graphics DCB is closed by a call to 
GCLOSE. 

(8) In the linkedit step of the job^ a DD 
statement defining the library con¬ 
taining the GRASP routines must be 
concatenated to the SYSLIB DD state¬ 
ment in the PL1LFCLG catalogued pro¬ 
cedure . 
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(9) In the go step of the job, a DD state¬ 
ment is included defining the 2260 device. 
As coded in the example, an available 2260 
will be allocated to the program. If more 
than one 2260 is desired, the following DD 
statement may be used: 

//GO.DISP DD UNIT*(2260-1,n) 

where M n M is a decimal integer indicating 
the number of 2260's desired. 
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